home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / TOOLS / DF_DEBUG.ZIP / DEMO.REC < prev    next >
Encoding:
Text File  |  1988-09-14  |  2.4 KB  |  62 lines
  1.      { Gilmore Systems demo source for a hypothetical car salesperson }
  2.  
  3.      { The following #START_SET and #END_SET defines tag names }
  4.  
  5.      {#START_SET}
  6.  
  7.      YEAR=1960..1987;
  8.      CARPET_TYPE=1..4;
  9.      LOCATION=1..2;
  10.      PREFERENCE=1..2;
  11.  
  12.      {#END_SET}
  13.  
  14.      Optionrec = record
  15.                  air        : string[3]; { Yes/No for Air Conditioning }
  16.                  stereo     : string[3]; { Yes/No for Stereo Radio }
  17.                  powerstr   : string[3]; { Yes/No for Power Steering }
  18.                  powerbrk   : string[3]; { Yes/No for Power Brakes }
  19.                  powerwnd   : string[3]; { Yes/No for Power Windows }
  20.                  carpeting  : array[CARPET_TYPE] of string[3]; { Carpet}
  21.                end;
  22.  
  23.      Carrec = record
  24.               make     : string[20];     { Manufacturer of car }
  25.               qty_left : array[YEAR] of integer;  { Year of car }
  26.               model    : string[20];     { Model name of car }
  27.               options  : Optionrec;      { Options Information }
  28.               color    : string[10];     { Color of car }
  29.             end;
  30.  
  31.      Namerec  = record
  32.                 lastname   : string[20];  { Customer's Last Name }
  33.                 firstname  : string[20];  { Customer's First Name }
  34.                 middleInit : char;        { Customer's Middle Initial }
  35.               end;
  36.  
  37.      Addressrec = record
  38.                   street  : string[20];   { Customer's Street Address }
  39.                   city    : string[20];   { Customer's City }
  40.                   state   : string[2];    { Customer's State }
  41.                   zip     : string[10];   { Customer's Zip code }
  42.                 end;
  43.  
  44.      Phonerec = record
  45.                 area_code  : string[3];   { Customer's area code }
  46.                 ph_number  : string[10];  { Customer's phone number }
  47.               end;
  48.  
  49.      PriceRec = record
  50.                 lowest  : real;  { Lowest price customer wants }
  51.                 highest : real;  { Highest price customer wants }
  52.               end;
  53.  
  54.      Customer = record
  55.                 name        : Namerec;    { Customer Name info }
  56.                 address     : Addressrec; { Customer Address info }
  57.                 phone       : array[LOCATION] of Phonerec; { Phone }
  58.                 car         : array[PREFERENCE] of Carrec; { Car }
  59.                 PriceRange  : PriceRec;
  60.                 LastContact : string[9];   { Date last contacted }
  61.               end;
  62.